home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok15 / seafarers_manual / source / samplereal.mod < prev    next >
Text File  |  1993-11-04  |  633b  |  28 lines
  1. MODULE SampleReal;   (* Demonstrate real-number arithmetic *)
  2.  
  3.    (* From the book "Modula-2  A Seafarer's Manual and Shipyard Guide" *)
  4.    (* Page 35   adapted "Amiga M2Modula-2"   21 Feb 1988 *)
  5.    
  6. FROM InOut IMPORT WriteLn;
  7. FROM RealInOut IMPORT WriteReal;
  8.                   
  9. VAR
  10.   RaddResult,
  11.   RsubResult,
  12.   RmulResult,
  13.   RdivResult : REAL;
  14.   
  15. BEGIN
  16.   RaddResult := 25.0 + 4.0;
  17.   RsubResult := 25.0 - 4.0;
  18.   RmulResult := 25.0 * 4.0;
  19.   RdivResult := 25.0 / 4.0;
  20.   WriteLn;
  21.   WriteReal (RaddResult,10,2);
  22.   WriteReal (RsubResult,10,2);
  23.   WriteReal (RmulResult,10,2);
  24.   WriteReal (RdivResult,10,2);
  25.   WriteLn;
  26.   
  27. END SampleReal.
  28.